home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / arrays.arc / THREE-D.BAS < prev    next >
BASIC Source File  |  1987-09-17  |  9KB  |  261 lines
  1. defint a-z
  2. dim  cities$(100), temps(100,3,6), days$(6)
  3.  
  4. ' **** here are the days of the week
  5. days$(0)="SUNDAY"     :days$(1)="MONDAY"    :days$(2)="TUESDAY"
  6. days$(3)="WEDNESDAY"  :days$(4)="THURSDAY"  :days$(5)="FRIDAY"
  7. days$(6)="SATURDAY"
  8.  
  9. esc$=chr$(27)
  10. pgup$=chr$(0)+chr$(73)
  11. pgdn$=chr$(0)+chr$(81)
  12.  
  13. '*** Main program is here
  14. gosub readindata
  15. day = 0                         'start with Sunday
  16. newday.flg=-1
  17. do
  18.         if newday.flg then
  19.                 cls
  20.                 gosub printoutdata
  21.                 color 13
  22.                 print "Press: <PgUp>-previous day, <PgDn>-next day, <Esc>-quit";
  23.                 color 11
  24.                 print "     DAY = ";days$(day);
  25.                 newday.flg=0
  26.         end if
  27.         gosub getakey
  28.         if inchar$=pgup$ then
  29.                 day=day-1
  30.                 newday.flg=-1
  31.         elseif inchar$=pgdn$ then
  32.                 day=day+1
  33.                 newday.flg=-1
  34.         elseif inchar$<>esc$ then
  35.                 beep
  36.         end if
  37.         if day<0 then day=6 else if day>6 then day=0
  38. loop until inchar$=esc$
  39.  
  40. end
  41.  
  42. '************
  43. 'GETAKEY
  44. getakey:
  45. do
  46.         inchar$=inkey$
  47. loop until inchar$<>""
  48. return
  49.  
  50. '****************************************************************************
  51. ' READINDATA - gets in the necessary data (ie, name/temperature pairs)
  52. readindata:
  53.         restore info
  54.         read  n.cities
  55.         for  city=1  to  n.cities
  56.                 read cities$(city)
  57.         next
  58.         for  day=0  to  6
  59.                 for  city=1  to  n.cities
  60.                         read  temps(city,0,day), temps(city,1,day),              _
  61.                                 temps(city,2,day), temps(city,3,day)
  62.                 next
  63.  
  64.         next
  65.         return
  66. '****************************************************************************
  67.  
  68. '****************************************************************************
  69. ' PRINTOUTDATA
  70. printoutdata:
  71.         locate 1,1
  72.         color 14
  73.         print "CITY","HIGH","LOW","PREC(mm)","WIND(mph)"
  74.         color 7
  75.         for  city=1  to  n.cities
  76.              print  cities$(city),
  77.              print  temps(city,0,day),          _
  78.                     temps(city,1,day),          _
  79.                     temps(city,2,day),          _
  80.                     temps(city,3,day)
  81.         next
  82.         return
  83. '****************************************************************************
  84.  
  85. info:
  86. data 22
  87. data Acapulco,       Athens,         Beijing,        Bonn
  88. data Cairo,          Copenhagen,     Dublin,         Geneva
  89. data Helsinki,       Jerusalem,      Lima,           Madrid
  90. data Merida,         Monterrey,      Moscow,         Nice
  91. data Paris,          Rome,           Singapore,      Taipei
  92. data Toronto,        Vienna
  93.  
  94. '*** Sunday info
  95. data     96,     79,     13,     4
  96. data     91,     68,     13,     10
  97. data     85,     70,     8,      14
  98. data     70,     68,     4,      13
  99. data     92,     70,     14,     3
  100. data     66,     47,     9,      22
  101. data     65,     65,     7,      20
  102. data     90,     61,     8,      17
  103. data     62,     45,     9,      14
  104. data     92,     63,     15,     4
  105. data     68,     65,     15,     7
  106. data     98,     65,     14,     4
  107. data     88,     77,     14,     6
  108. data     97,     77,     14,     8
  109. data     54,     48,     4,      24
  110. data     82,     70,     14,     9
  111. data     72,     66,     10,     16
  112. data     86,     66,     12,     12
  113. data     87,     75,     11,     11
  114. data     86,     75,     9,      14
  115. data     74,     52,     2,      28
  116. data     92,     59,     4,      22
  117.  
  118. '*** Monday info
  119. data     98,     81,     15,     6
  120. data     93,     70,     15,     12
  121. data     87,     72,     10,     16
  122. data     72,     70,     6,      15
  123. data     94,     72,     16,     5
  124. data     68,     49,     11,     24
  125. data     67,     67,     9,      22
  126. data     92,     63,     10,     19
  127. data     64,     47,     11,     16
  128. data     94,     65,     17,     6
  129. data     70,     67,     17,     9
  130. data     100,    67,     16,     6
  131. data     90,     79,     16,     8
  132. data     99,     79,     16,     10
  133. data     56,     50,     6,      26
  134. data     84,     72,     16,     11
  135. data     74,     68,     12,     18
  136. data     88,     68,     14,     14
  137. data     89,     77,     13,     13
  138. data     88,     77,     11,     16
  139. data     76,     54,     4,      30
  140. data     94,     61,     6,      24
  141.  
  142. '*** Tuesday info
  143. data     100,    83,     17,     8
  144. data     95,     72,     17,     14
  145. data     89,     74,     12,     18
  146. data     74,     72,     8,      17
  147. data     96,     74,     18,     7
  148. data     70,     51,     13,     26
  149. data     69,     69,     11,     24
  150. data     94,     65,     12,     21
  151. data     66,     49,     13,     18
  152. data     96,     67,     19,     8
  153. data     72,     69,     19,     11
  154. data     102,    69,     18,     8
  155. data     92,     81,     18,     10
  156. data     101,    81,     18,     12
  157. data     58,     52,     8,      28
  158. data     86,     74,     18,     13
  159. data     76,     70,     14,     20
  160. data     90,     70,     16,     16
  161. data     91,     79,     15,     15
  162. data     90,     79,     13,     18
  163. data     78,     56,     6,      32
  164. data     96,     63,     8,      26
  165.  
  166. '*** Wednesday info
  167. data     102,    85,     19,     10
  168. data     97,     74,     19,     16
  169. data     91,     76,     14,     20
  170. data     76,     74,     10,     19
  171. data     98,     76,     20,     9
  172. data     72,     53,     15,     28
  173. data     71,     71,     13,     26
  174. data     96,     67,     14,     23
  175. data     68,     51,     15,     20
  176. data     98,     69,     21,     10
  177. data     74,     71,     21,     13
  178. data     104,    71,     20,     10
  179. data     94,     83,     20,     12
  180. data     103,    83,     20,     14
  181. data     60,     54,     10,     30
  182. data     88,     76,     20,     15
  183. data     78,     72,     16,     22
  184. data     92,     72,     18,     18
  185. data     93,     81,     17,     17
  186. data     92,     81,     15,     20
  187. data     80,     58,     8,      34
  188. data     98,     65,     10,     28
  189.  
  190. '*** Thursday info
  191. data     104,    87,     21,     12
  192. data     99,     76,     21,     18
  193. data     93,     78,     16,     22
  194. data     78,     76,     12,     21
  195. data     100,    78,     22,     11
  196. data     74,     55,     17,     30
  197. data     73,     73,     15,     28
  198. data     98,     69,     16,     25
  199. data     70,     53,     17,     22
  200. data     100,    71,     23,     12
  201. data     76,     73,     23,     15
  202. data     106,    73,     22,     12
  203. data     96,     85,     22,     14
  204. data     105,    85,     22,     16
  205. data     62,     56,     12,     32
  206. data     90,     78,     22,     17
  207. data     80,     74,     18,     24
  208. data     94,     74,     20,     20
  209. data     95,     83,     19,     19
  210. data     94,     83,     17,     22
  211. data     82,     60,     10,     36
  212. data     100,    67,     12,     30
  213.  
  214. '*** Friday info
  215. data     106,    89,     23,     14
  216. data     101,    78,     23,     20
  217. data     95,     80,     18,     24
  218. data     80,     78,     14,     23
  219. data     102,    80,     24,     13
  220. data     76,     57,     19,     32
  221. data     75,     75,     17,     30
  222. data     100,    71,     18,     27
  223. data     72,     55,     19,     24
  224. data     102,    73,     25,     14
  225. data     78,     75,     25,     17
  226. data     108,    75,     24,     14
  227. data     98,     87,     24,     16
  228. data     107,    87,     24,     18
  229. data     64,     58,     14,     34
  230. data     92,     80,     24,     19
  231. data     82,     76,     20,     26
  232. data     96,     76,     22,     22
  233. data     97,     85,     21,     21
  234. data     96,     85,     19,     24
  235. data     84,     62,     12,     38
  236. data     102,    69,     14,     32
  237.  
  238. '*** Saturday info
  239. data     108,    91,     25,     16
  240. data     103,    80,     25,     22
  241. data     97,     82,     20,     26
  242. data     82,     80,     16,     25
  243. data     104,    82,     26,     15
  244. data     78,     59,     21,     34
  245. data     77,     77,     19,     32
  246. data     102,    73,     20,     29
  247. data     74,     57,     21,     26
  248. data     104,    75,     27,     16
  249. data     80,     77,     27,     19
  250. data     110,    77,     26,     16
  251. data     100,    89,     26,     18
  252. data     109,    89,     26,     20
  253. data     66,     60,     16,     36
  254. data     94,     82,     26,     21
  255. data     84,     78,     22,     28
  256. data     98,     78,     24,     24
  257. data     99,     87,     23,     23
  258. data     98,     87,     21,     26
  259. data     86,     64,     14,     40
  260. data     104,    71,     16,     34
  261.